CD-ROM Today - The Disc! 5/CD-ROM Today - The Disc (Issue 5)(November 1994).ISO/mac/DHA demo/Don Norman Folder/Don Norman demo/Don Norman demo.rsrc/CSTR_5821_showFoundHiddenFieldsCSTR

Text File | 1994-09-21 | 847b | 32 lines

global gAnnotationChars
if number of words in w = 8 then
get char 1 of word 6 of w
put word 8 of w into n
if it="c" then
if short name of cd fld n is in gAnnotationChars then
if not(visible of cd fld n) then
show cd fld n
end if
else
if there is a fld "linkdata" then
put offset("■"&short name of cd fld n&"■", fld "linkdata") into tof
if tof > 0 then
put the itemdelimiter into id
set the itemdelimiter to "ª"
put the number of items in char 1 to tof of fld "linkdata" into ni
put item ni of fld "linkdata" into thedata
set the itemdelimiter to "■"
put item 1 to 2 of thedata into p1
put item 3 to 99 of thedata into p2
put item 2 of p2 into tname
set the itemdelimiter to id
doAnnotation p2, p1
if there is a window tname then
get word 2 of w&","&word 4 of w
set the textselection of window tname to it
end if
end if
end if
end if
end if
end if